home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
htmlso_1
/
html.frm
< prev
next >
Wrap
Text File
|
1998-04-09
|
21KB
|
747 lines
VERSION 5.00
Begin VB.Form Form1
Caption = "Visual Basic Html Editor Example."
ClientHeight = 4320
ClientLeft = 1290
ClientTop = 1395
ClientWidth = 7245
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 177
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Icon = "HTML.frx":0000
LinkTopic = "Form1"
PaletteMode = 1 'UseZOrder
ScaleHeight = 4320
ScaleWidth = 7245
WindowState = 2 'Maximized
Begin VB.CommandButton Command5
BackColor = &H80000005&
Caption = "End"
DragIcon = "HTML.frx":030A
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5760
TabIndex = 10
Top = 0
Width = 735
End
Begin VB.CommandButton Command4
BackColor = &H80000005&
Caption = "B"
DragIcon = "HTML.frx":0614
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 9
Top = 0
Width = 375
End
Begin VB.CommandButton Command3
BackColor = &H80000005&
Caption = "U"
DragIcon = "HTML.frx":091E
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 8
Top = 0
Width = 375
End
Begin VB.CommandButton Command2
BackColor = &H80000005&
Caption = "I"
DragIcon = "HTML.frx":0C28
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 7
Top = 0
Width = 375
End
Begin VB.CommandButton Command1
BackColor = &H80000005&
Caption = "Colors"
DragIcon = "HTML.frx":0F32
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 6
Top = 0
Width = 855
End
Begin VB.CommandButton hr
BackColor = &H80000005&
Caption = "HR"
DragIcon = "HTML.frx":123C
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 5
Top = 0
Width = 375
End
Begin VB.CommandButton email
BackColor = &H80000005&
Caption = "E-Mail"
DragIcon = "HTML.frx":1546
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
TabIndex = 4
Top = 0
Width = 855
End
Begin VB.CommandButton Picture
BackColor = &H80000005&
Caption = "Picture"
DragIcon = "HTML.frx":1850
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4080
TabIndex = 3
Top = 0
Width = 855
End
Begin VB.CommandButton link
BackColor = &H80000005&
Caption = "Link"
DragIcon = "HTML.frx":1B5A
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 2
Top = 0
Width = 735
End
Begin VB.CommandButton br
BackColor = &H80000005&
Caption = "BR"
DragIcon = "HTML.frx":1E64
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 1
Top = 0
Width = 375
End
Begin VB.TextBox main
Height = 6135
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 480
Width = 6975
End
Begin VB.Menu mnufile
Caption = "File"
Index = 2
Begin VB.Menu mnufileopen
Caption = "Open..."
Index = 1
End
Begin VB.Menu mnufilesave
Caption = "Save..."
Index = 1
End
Begin VB.Menu mnufileprint
Caption = "Print"
Index = 1
End
Begin VB.Menu mnufileexit
Caption = "Exit"
Index = 1
End
End
Begin VB.Menu mnutext
Caption = "Text"
Index = 1
Begin VB.Menu mnutextsize
Caption = "Size"
Index = 5
Begin VB.Menu mnutextsizeh1
Caption = "H1"
Index = 1
End
Begin VB.Menu mnutextsizeh2
Caption = "H2"
Index = 2